(byte-compile-track-mouse): New function.

This is a kludge; track-mouse must be compiled better.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 7d686b1005762f5da6780c36c0a79cc165135ff9..76a0712dcad5bcf23f31c101ad9d4dbae2959ed3 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -2610,6 +2610,7 @@ If FORM is a lambda or a macro, byte-compile it as a function."
 (byte-defop-compiler-1 save-restriction)
 (byte-defop-compiler-1 save-window-excursion)
 (byte-defop-compiler-1 with-output-to-temp-buffer)
+(byte-defop-compiler-1 track-mouse)
 
 (defun byte-compile-catch (form)
   (byte-compile-form (car (cdr form)))
@@ -2624,6 +2625,15 @@ If FORM is a lambda or a macro, byte-compile it as a function."
   (byte-compile-form-do-effect (car (cdr form)))
   (byte-compile-out 'byte-unbind 1))
 
+(defun byte-compile-track-mouse (form)
+  (byte-compile-form
+   (list
+    'funcall
+    (list 'quote
+         (list 'lambda nil
+               (list 'track-mouse
+                     (byte-compile-top-level (nth 1 form))))))))
+
 (defun byte-compile-condition-case (form)
   (let* ((var (nth 1 form))
         (byte-compile-bound-variables